home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
COMPNENT
/
DTOOLS3
/
DEMOMISC.DFM
/
DEMOMISC.txt
next >
Wrap
Text File
|
1995-11-06
|
4KB
|
160 lines
object MiscGadgets: TMiscGadgets
Left = 294
Top = 110
BorderIcons = [biMaximize]
BorderStyle = bsDialog
Caption = 'Misc. Gadgets'
ClientHeight = 254
ClientWidth = 425
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
ShowHint = True
TextHeight = 16
object LEDLabel1: TLEDLabel
Left = 80
Top = 13
Width = 51
Height = 30
Hint =
'This is a TLEDLabel component. The caption property is being se' +
't automatically by the TRotaryKnob component.'
UnlitColor = 16384
Caption = '0'
Columns = 3
end
object PieMeter1: TPieMeter
Left = 145
Top = 7
Width = 45
Height = 45
Hint = 'This is a TPieMeter component.'
Completed = 0
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ForeColor = clFuchsia
ParentFont = False
Percent = 0
end
object Image1: TImage
Left = 319
Top = 199
Width = 33
Height = 33
AutoSize = True
Picture.Data = {<image000.bmp>}
Visible = False
end
object NeatoMeter1: TNeatoMeter
Left = 8
Top = 60
Width = 185
Height = 57
Hint = 'This is a TNeatoMeter component.'
Completed = 0
Font.Color = clBlack
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
Percent = 0
end
object Image2: TImage
Left = 8
Top = 192
Width = 183
Height = 55
AutoSize = True
Picture.Data = {<image001.bmp>}
Visible = False
end
object CheckBox2: TCheckBox
Left = 217
Top = 17
Width = 186
Height = 18
Hint =
'Determines whether or not to display the Caption property on the' +
' TPieMeter and TNeatoMeter components.'
Caption = 'Caption in Meters'
TabOrder = 0
OnClick = CheckBox2Click
end
object RotaryKnob1: TRotaryKnob
Left = 16
Top = 6
Width = 45
Height = 45
Hint = 'Turn the knob and the other gadgets will change!'
Control = LEDLabel1
Max = 100
Position = 0
OnChange = RotaryKnob1Change
end
object CheckBox3: TCheckBox
Left = 217
Top = 41
Width = 185
Height = 17
Hint =
'Determines whether or not to display the Percent completed on th' +
'e TPieMeter and TNeatoMeter components.'
Caption = 'Show Percent in Meters'
State = cbChecked
TabOrder = 1
OnClick = CheckBox3Click
end
object RadioGroup1: TRadioGroup
Left = 208
Top = 72
Width = 201
Height = 121
Hint = 'Set TNeatoMeter bitmap display options.'
Caption = 'TNeatoMeter Bitmap Options'
ItemIndex = 0
Items.Strings = (
'Standard'
'Stretched Bitmap'
'Tiled Bitmap'
'Tiled Bitmap w/Invert')
TabOrder = 2
OnClick = RadioGroup1Click
end
object RadioGroup2: TRadioGroup
Left = 8
Top = 124
Width = 185
Height = 65
Hint =
'Determines the direction TNeatoMeter will go to indicate progres' +
's.'
Caption = 'TNeatoMeter Direction'
Columns = 2
ItemIndex = 0
Items.Strings = (
'L->R'
'R->L'
'T->B'
'B->T')
TabOrder = 3
OnClick = RadioGroup2Click
end
object ShadowButton1: TShadowButton
Left = 168
Top = 210
Width = 89
Height = 33
Hint = 'Click me to make this window go away!'
Cancel = True
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 4
end
end